Option Explicit
Sub G_Sample011()
    Dim myShp           As Shape
    Dim myShpAr(1 To 3) As Shape
    Dim mySht           As Worksheet
    Dim i               As Long
    Dim j               As Long
    Set mySht = Worksheets.Add
    With mySht
    'sW3AutoShape
    For i = 1 To 3
       Set myShpAr(i) = .Shapes.AddShape(Type:=msoShapeRectangle, _
             	Left:=100+i*30, Top:=100+i*30, Width:=100, Height:=100)
             myShpAr(i).Fill.ForeColor.SchemeColor = i * 3
    Next
    End With
    'Ǫܧ
    For i = 1 To 30
      myShpAr(((i - 1) Mod 3) + 1).ZOrder ZorderCmd:=msoBringToFront
      For j = 1 To 500
        DoEvents
      Next
    Next
End Sub
